home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Examples / In.MOD < prev    next >
Encoding:
Text File  |  1992-12-29  |  1.2 KB  |  31 lines  |  [TEXT/MEDT]
  1. one & InOut.Done
  2.   END Real;
  3.  
  4.   PROCEDURE LongReal(VAR p: LONGREAL);
  5.   BEGIN
  6.        IF Done THEN InOut.ReadLongReal(p); Done := Done & InOut.Done END
  7.   END LongReal;
  8.  
  9.   PROCEDURE Name(VAR nme: ARRAY OF CHAR);
  10.   BEGIN
  11.        IF Done THEN InOut.ReadString(nme); Done := Done & InOut.Done END
  12.   END Name;
  13.  
  14.   PROCEDURE String(VAR str: ARRAY OF CHAR);
  15.   CONST CR = 15C;  NUL = 0C;
  16.   VAR ch: CHAR;  j: INTEGER;
  17.   BEGIN
  18.       IF Done THEN
  19.           REPEAT  Char(ch)  UNTIL ((ch # " ") & (ch # CR)) OR ~Done;
  20.           j := 0;
  21.           WHILE Done & (ch # " ") & (ch # CR) DO  
  22.               IF j < SIZE(str) - 1 THEN str[j] := ch;  INC(j)  END;
  23.               Char(ch)
  24.           END;
  25.           str[j] := NUL; Done := j # 0
  26.       END
  27.   END String;
  28.  
  29. BEGIN Done := TRUE
  30. END In.
  31.